inherited fmPaymentsView: TfmPaymentsView
  Left = 421
  Top = 154
  Width = 1290
  Height = 701
  Caption = #1055#1088#1086#1089#1084#1086#1090#1088' '#1087#1083#1072#1090#1077#1078#1077#1081
  Constraints.MinHeight = 701
  Constraints.MinWidth = 1290
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 636
    Width = 1274
  end
  inherited Panel1: TPanel
    Top = 591
    Width = 1274
    Align = alBottom
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1112
    end
    inherited BitBtn2: TBitBtn
      Left = 1200
    end
  end
  object dbgPayments: TcxGrid [2]
    Left = 0
    Top = 472
    Width = 1274
    Height = 119
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Visible = False
    LookAndFeel.Kind = lfStandard
    object tvPayments: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      FilterBox.CustomizeDialog = False
      OnCellClick = tvPaymentsCellClick
      OnEditValueChanged = tvPaymentsEditValueChanged
      DataController.DataSource = dsCommon
      DataController.Filter.Active = True
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skSum
          FieldName = 'CSAMOUNT'
          Column = tvPaymentsCSAMOUNT
          DisplayText = #1057#1091#1084#1084#1072
        end>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###'
          Kind = skSum
          FieldName = 'CSAMOUNT'
          Column = tvPaymentsCSAMOUNT
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      Filtering.ColumnFilteredItemsList = True
      OptionsBehavior.CellHints = True
      OptionsBehavior.IncSearch = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Inserting = False
      OptionsView.CellEndEllipsis = True
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Preview.Visible = True
      Styles.Header = DMInv.cxSiniyText
      object tvPaymentsColumn1: TcxGridDBColumn
        Caption = #8470' '#1087'/'#1087
        OnGetDataText = tvPaymentsColumn1GetDataText
        Options.Editing = False
        Width = 36
      end
      object tvPaymentsPP_POLUCH: TcxGridDBColumn
        Caption = #1055#1086#1083#1091#1095#1072#1090'. '#1091#1089#1083#1091#1075
        DataBinding.FieldName = 'PP_POLUCH'
        Options.Editing = False
        Width = 64
      end
      object tvPaymentsPDATEBIRTH: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'. '#1087#1086#1083#1091#1095'.'
        DataBinding.FieldName = 'PDATEBIRTH'
        Options.Editing = False
        Width = 77
      end
      object tvPaymentsPP: TcxGridDBColumn
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        DataBinding.FieldName = 'PP'
        Options.Editing = False
        Width = 56
      end
      object tvPaymentsCSAMOUNT: TcxGridDBColumn
        Caption = #1057#1091#1084#1084#1072
        DataBinding.FieldName = 'CSAMOUNT'
        Options.Editing = False
        Width = 35
      end
      object tvPaymentsCSFORM: TcxGridDBColumn
        Caption = #1053#1072#1083'.'
        DataBinding.FieldName = 'CSFORM'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.ValueChecked = 0
        Properties.ValueUnchecked = 1
        Options.Editing = False
        Width = 29
      end
      object tvPaymentsCSDATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1086#1087#1083#1072#1090#1099
        DataBinding.FieldName = 'CSDATE'
        Options.Editing = False
        Width = 57
      end
      object tvPaymentsCSFORWHAT: TcxGridDBColumn
        Caption = #1047#1072' '#1095#1090#1086'?'
        DataBinding.FieldName = 'CSFORWHAT'
        Options.Editing = False
        Width = 39
      end
      object tvPaymentsCSNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
        DataBinding.FieldName = 'CSNOTE'
        Width = 61
      end
      object tvPaymentsAUTOR: TcxGridDBColumn
        Caption = #1040#1074#1090#1086#1088
        DataBinding.FieldName = 'AUTOR'
        Options.Editing = False
        Width = 40
      end
      object tvPaymentsCSTIMEENTER: TcxGridDBColumn
        Caption = #1042#1088#1077#1084#1103' '#1074#1074#1086#1076#1072
        DataBinding.FieldName = 'CSTIMEENTER'
        Options.Editing = False
        Width = 68
      end
      object tvPaymentsSDNAME: TcxGridDBColumn
        Caption = #1054#1073#1088#1072#1079'. '#1087#1086#1076#1088#1072#1079#1076'.'
        DataBinding.FieldName = 'SDNAME'
        Options.Editing = False
        Width = 108
      end
    end
    object cxGridLevel5: TcxGridLevel
      GridView = tvPayments
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 0
    Width = 1274
    Height = 38
    Align = alTop
    TabOrder = 3
    DesignSize = (
      1274
      38)
    object Label10: TLabel
      Left = 495
      Top = 9
      Width = 78
      Height = 14
      Caption = #1044#1072#1090#1072' '#1086#1087#1083#1072#1090#1099'*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 853
      Top = 9
      Width = 98
      Height = 13
      Anchors = [akTop, akRight]
      Caption = #1055#1086#1080#1089#1082' '#1087#1086' '#1082#1086#1084#1084#1077#1085#1090'.:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object bDelCommon: TcxButton
      Tag = 12
      Left = 428
      Top = 6
      Width = 30
      Height = 27
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1087#1083#1072#1090#1077#1078
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnClick = bDelCommonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333337333333333333333F33333333333333313333333
        333333337F33333333333333113333713333333377F33377F333333371733717
        3333333377F3377F333333333117311333333333377F377F3333333337111133
        33333333337777F33333333337111333333333333F777F333333333371111733
        3333333337777F3333333333117311733333333377F377F33333333333333117
        333333333333377F33333333333333117333333333333377F333333333333333
        3333333333333333333333333333333333333333333333333333}
      LookAndFeel.SkinName = ''
      NumGlyphs = 2
    end
    object bGridCust: TcxButton
      Tag = 12
      Left = 1241
      Top = 7
      Width = 27
      Height = 23
      Hint = #1050#1086#1083#1086#1085#1082#1080' '#1090#1072#1073#1083#1080#1094#1099
      Anchors = [akTop, akRight]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TabStop = False
      OnClick = bGridCustClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FFFFFFFFFFFFFFF000000000000000088888888888888880FFFFFFFFFFF
        FFF08F3FF3FF3FF7FFF80F00F00F00F900F08F883883883788380FFFFFFFF9FF
        FFF08F3FF3FF37F3FFF80F00F00F09F000F08F883883873888380FFFFFFFF99F
        FFF08F3FF3FF3773FFF80F00F99909F000F08F883777873888380FFFF9FFF999
        FFF08F3FF7FF3777FFF80F00F99F00F000F08F88377388388838099FF9FFFFFF
        FFF0877FF7FFFFFFFFF809C9C999CCCCCCC087878777888888880979CCCCCCCC
        C77087F7888888888FF809090000000000008787888888888888399333333333
        3333377333333333333333333333333333333333333333333333}
      LookAndFeel.SkinName = ''
      NumGlyphs = 2
    end
    object bExpToExcel: TcxButton
      Tag = 12
      Left = 1212
      Top = 7
      Width = 29
      Height = 23
      Anchors = [akTop, akRight]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TabStop = False
      OnClick = bExpToExcelClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300003
        30003333000088000EE033330FFF0880EE0033330F77708EE00333330FFFF0EE
        800333000F770EE0880033090FF0EE0F0880000990F000FFF00009999907FF77
        7F0309999990FFFFFF030999990FF7000003000990FFFF0FF03333090FFF770F
        033333000FFFFF00333333330000000333333333333333333333}
      LookAndFeel.SkinName = ''
    end
    object ePaymentDate: TcxButtonEdit
      Tag = 11
      Left = 575
      Top = 6
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = ePaymentDatePropertiesButtonClick
      Properties.OnChange = cxRadioGroup1PropertiesChange
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 3
      Width = 206
    end
    object cxRadioGroup1: TcxRadioGroup
      Left = 3
      Top = 1
      Properties.Columns = 3
      Properties.Items = <
        item
          Caption = #1055#1088#1072#1074#1080#1083#1100#1085#1099#1077' '#1087#1083#1072#1090#1077#1078#1080
          Value = 0
        end
        item
          Caption = #1059#1076#1072#1083#1077#1085#1085#1099#1077' '#1087#1083#1072#1090#1077#1078#1080
          Value = 1
        end
        item
          Caption = #1042#1089#1077
          Value = 2
        end>
      Properties.OnChange = cxRadioGroup1PropertiesChange
      ItemIndex = 0
      TabOrder = 4
      Height = 33
      Width = 419
    end
    object eFindText: TcxTextEdit
      Left = 956
      Top = 6
      Anchors = [akTop, akRight]
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 5
      OnClick = eFindTextClick
      Width = 186
    end
    object bFind: TcxButton
      Tag = 12
      Left = 1145
      Top = 7
      Width = 29
      Height = 23
      Hint = #1055#1086#1080#1089#1082' '#1074' '#1082#1086#1084#1084#1077#1085#1090#1072#1088#1080#1080
      Anchors = [akTop, akRight]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      TabStop = False
      OnClick = bFindClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777077777777777777787777777777777700077777777
        777778887777777777770F00077777777777878887777777777770F000777777
        77777878887777777777770F00078000877777878887F888F7777770F0008888
        807777787888FFFFF87777770007777778077777888777777F877777707777FF
        F78877777877777777FF777770777777FF707777787777777778777770777777
        7F7077777877777777787777788FF777777077777FF7777777787777788FF777
        777877777FF77777777F777778087777780777777F8F77777F87777777708888
        807777777778FFFFF877777777778000877777777777F888F777}
      LookAndFeel.SkinName = ''
      NumGlyphs = 2
    end
    object bClearFind: TcxButton
      Tag = 12
      Left = 1174
      Top = 7
      Width = 27
      Height = 23
      Hint = #1057#1073#1088#1086#1089#1080#1090#1100' '#1089#1090#1088#1086#1082#1091' '#1087#1086#1080#1089#1082#1072
      Anchors = [akTop, akRight]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      TabStop = False
      OnClick = bClearFindClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333337333333333333333F33333333333333313333333
        333333337F33333333333333113333713333333377F33377F333333371733717
        3333333377F3377F333333333117311333333333377F377F3333333337111133
        33333333337777F33333333337111333333333333F777F333333333371111733
        3333333337777F3333333333117311733333333377F377F33333333333333117
        333333333333377F33333333333333117333333333333377F333333333333333
        3333333333333333333333333333333333333333333333333333}
      LookAndFeel.SkinName = ''
      NumGlyphs = 2
    end
    object bReload: TcxButton
      Tag = 12
      Left = 788
      Top = 4
      Width = 29
      Height = 28
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      TabStop = False
      OnClick = bReloadClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
        33333333333F7777773F33330000324334222222443333377F3733333377F333
        000032244222222222433337F7733FFFFF337F3300003222222AAAAA22243337
        F333F77777F337F30000322222A33333A2224337F33F7333337F337F00003222
        223333333A224337F33733333337F37F00003222222333333A444337FFFF7F33
        3337777300003AAAAAAA33333333333777777733333333330000333333333333
        333333333333333333FFFFFF000033333333333344444433FFFF333333777777
        00003A444333333A22222437777F333337F3333700003A2243333333A2222437
        F37F333333733337000033A224333334422224337337FFFFF7733337000033A2
        22444442222224337F3377777333FF370000333A2222222222AA243337FF3333
        33FF77F700003333AA222222AA33A3333377FFFFFF7733730000333333AAAAAA
        3333333333337777773333330000333333333333333333333333333333333333
        0000}
      LookAndFeel.SkinName = ''
      NumGlyphs = 2
    end
    object bSCUndelete: TcxButton
      Tag = 12
      Left = 461
      Top = 5
      Width = 30
      Height = 28
      Hint = #1042#1086#1089#1089#1090#1072#1085#1086#1074#1083#1077#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      TabStop = False
      Visible = False
      OnClick = bSCUndeleteClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777477777444447777747777744447777777477774447777777
        7477774474777777747777477744777747777777777744447777777777777777
        7777777777777777777777777777777777777777777777777777}
      LookAndFeel.SkinName = ''
    end
  end
  object cxGrid6: TcxGrid [4]
    Left = 0
    Top = 424
    Width = 1274
    Height = 48
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Visible = False
    LookAndFeel.Kind = lfStandard
    object cxGridDBTableView6: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsComRaznes
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'CAMOUNT'
          Column = cxGridDBTableView6CAMOUNT
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.CellEndEllipsis = True
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      Preview.Visible = True
      Styles.Header = DMInv.cxSiniyText
      object cxGridDBTableView6SCNUM_N: TcxGridDBColumn
        Caption = #8470' '#1044#1086#1087'. '#1089#1086#1075#1083'.'
        DataBinding.FieldName = 'SCNUM_N'
      end
      object cxGridDBTableView6STNAME: TcxGridDBColumn
        Caption = #1059#1089#1083#1091#1075#1072
        DataBinding.FieldName = 'STNAME'
        Width = 525
      end
      object cxGridDBTableView6CAMOUNT: TcxGridDBColumn
        Caption = #1057#1091#1084#1084#1072
        DataBinding.FieldName = 'CAMOUNT'
        Width = 157
      end
    end
    object cxGridLevel8: TcxGridLevel
      GridView = cxGridDBTableView6
    end
  end
  object dbgPaymants_Agr: TcxGrid [5]
    Left = 0
    Top = 55
    Width = 1274
    Height = 369
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    LookAndFeel.Kind = lfStandard
    object tvPaymants_Agr: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsPaymants_Agr
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'PAAMOUNT'
          Column = tvPaymants_AgrPAAMOUNT
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'PAAMOUNTBALANCE'
          Column = tvPaymants_AgrPAAMOUNTBALANCE
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'PABANKPERCENTS'
          Column = tvPaymants_AgrPABANKPERCENTS
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.CellEndEllipsis = True
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      Preview.Visible = True
      Styles.Header = DMInv.cxSiniyText
      object tvPaymants_AgrPAID: TcxGridDBColumn
        Caption = #1053#1086#1084#1077#1088
        DataBinding.FieldName = 'PAID'
        Width = 25
      end
      object tvPaymants_AgrPADATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072
        DataBinding.FieldName = 'PADATE'
        Width = 22
      end
      object tvPaymants_AgrAGRID: TcxGridDBColumn
        Caption = #8470' '#1076#1086#1075'.'
        DataBinding.FieldName = 'AGRID'
        Width = 30
      end
      object tvPaymants_AgrP_RECIPIENT: TcxGridDBColumn
        Caption = #1055#1086#1083#1091#1095'. '#1091#1089#1083#1091#1075
        DataBinding.FieldName = 'P_RECIPIENT'
        Width = 50
      end
      object tvPaymants_AgrPDATEBIRTH: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
        DataBinding.FieldName = 'PDATEBIRTH'
        Width = 45
      end
      object tvPaymants_AgrOSN_PODR: TcxGridDBColumn
        Caption = #1054#1089#1085'. '#1087#1086#1076#1088#1072#1079#1076'.'
        DataBinding.FieldName = 'OSN_PODR'
        Width = 54
      end
      object tvPaymants_AgrPLAT: TcxGridDBColumn
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        DataBinding.FieldName = 'PLAT'
        Width = 49
      end
      object tvPaymants_AgrTIP: TcxGridDBColumn
        Caption = #1058#1080#1087
        DataBinding.FieldName = 'TIP'
        Width = 20
      end
      object tvPaymants_AgrPAAMOUNT: TcxGridDBColumn
        Caption = #1057#1091#1084#1084#1072' '#1087#1083#1072#1090'.'
        DataBinding.FieldName = 'PAAMOUNT'
        Width = 46
      end
      object tvPaymants_AgrPABANKPERCENTS: TcxGridDBColumn
        Caption = #1041#1072#1085#1082'. '#1087#1088#1086#1094'.'
        DataBinding.FieldName = 'PABANKPERCENTS'
        Width = 45
      end
      object tvPaymants_AgrPAAMOUNTBALANCE: TcxGridDBColumn
        Caption = #1053#1072' '#1083'/'#1089' '#1087#1086#1083'. '#1091#1089#1083'.'
        DataBinding.FieldName = 'PAAMOUNTBALANCE'
        Width = 47
      end
      object tvPaymants_AgrPANOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090'.'
        DataBinding.FieldName = 'PANOTE'
        Width = 40
      end
      object tvPaymants_AgrPAUSERENTER: TcxGridDBColumn
        Caption = #1040#1074#1090#1086#1088
        DataBinding.FieldName = 'PAUSERENTER'
        Width = 29
      end
      object tvPaymants_AgrPATIMEENTER: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
        DataBinding.FieldName = 'PATIMEENTER'
        Width = 49
      end
      object tvPaymants_AgrPAUSEREDIT: TcxGridDBColumn
        Caption = #1056#1077#1076#1072#1082#1090#1086#1088
        DataBinding.FieldName = 'PAUSEREDIT'
        Width = 47
      end
      object tvPaymants_AgrPATIMEEDIT: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1094#1080#1080
        DataBinding.FieldName = 'PATIMEEDIT'
        Width = 84
      end
    end
    object cxGridLevel1: TcxGridLevel
      GridView = tvPaymants_Agr
    end
  end
  object cxLabel1: TcxLabel [6]
    Left = 0
    Top = 38
    Align = alTop
    Caption = 
      '* '#1077#1089#1083#1080' '#1076#1072#1090#1072' '#1085#1077' '#1091#1082#1072#1079#1072#1085#1072', '#1090#1086' '#1087#1083#1072#1090#1077#1078#1080' '#1074#1099#1074#1086#1076#1103#1090#1089#1103'  '#1079#1072' 30 '#1087#1086#1089#1083#1077#1076#1085#1080#1093' '#1076#1085 +
      #1077#1081
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  inherited dlgDS: TDataSource
    Left = 8
    Top = 96
  end
  object dsCommon: TDataSource
    DataSet = qCommon
    Left = 8
    Top = 64
  end
  object qCommon: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qCommonAfterOpen
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      
        'SELECT CS.* , (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      'p1.PLASTNAME||'#39' '#39'||SUBSTRING(p1.PNAME FROM 1 FOR 1 )||'#39'. '#39'||'
      
        'COALESCE(SUBSTRING(p1.PPATRONYMIC FROM 1 FOR 1)||'#39'.'#39','#39' '#39') AS aut' +
        'or,'
      
        '(COALESCE(P_poluch.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P_poluch.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P_poluch.PPATRONYMIC,'#39' '#39')) AS PP_poluch,'
      
        'P_poluch.PDATEBIRTH, C.CAMOUNT, ST.STNAME, COALESCE(CS.CSUSERMON' +
        'EY, cs.CSNUMUSER) AS user_enter, sd2.SDNAME'
      'FROM COMMON_SERV CS'
      'LEFT OUTER JOIN COMMON C ON C.CSID = CS.CSID'
      'LEFT OUTER JOIN SERVICES S ON S.SCID = C.SCID'
      'LEFT OUTER JOIN SERVICES_TYPE ST ON ST.STID = S.STID'
      'LEFT OUTER JOIN PEOPLE_COMMON PC ON PC.CSID = CS.CSID'
      'LEFT OUTER JOIN PEOPLE P ON P.PID = PC.PID'
      'LEFT OUTER JOIN USERS U ON U.USNAME = CS.CSUSERENTER'
      'LEFT OUTER JOIN PEOPLE P1 ON P1.PID = U.PID'
      'LEFT OUTER JOIN PEOPLE P_poluch ON P_poluch.PID = CS.PID_POLUCH'
      
        '      LEFT OUTER JOIN deti_podrazd dp ON dp.pid = CS.PID_POLUCH ' +
        'AND CURRENT_DATE BETWEEN CAST(dp.dpdatein AS DATE) AND COALESCE(' +
        'CAST(dp.dpdateout AS DATE), CURRENT_DATE + 3650)'
      '      LEFT OUTER JOIN sys_dic sd2 ON sd2.sdid = dp.sdid'
      'WHERE CS.CSISDELETE IS NULL')
    UpdateObject = quCommon
    GeneratorField.Field = 'CSID'
    GeneratorField.Generator = 'GEN_COMMON_SERV_ID'
    Left = 48
    Top = 64
    object qCommonCSID: TIntegerField
      FieldName = 'CSID'
      Origin = '"COMMON_SERV"."CSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qCommonPID_POLUCH: TIntegerField
      FieldName = 'PID_POLUCH'
      Origin = '"COMMON_SERV"."PID_POLUCH"'
    end
    object qCommonCSFORM: TIntegerField
      FieldName = 'CSFORM'
      Origin = '"COMMON_SERV"."CSFORM"'
    end
    object qCommonCSAMOUNT: TIBBCDField
      FieldName = 'CSAMOUNT'
      Origin = '"COMMON_SERV"."CSAMOUNT"'
      DisplayFormat = '#,###'
      Precision = 18
      Size = 2
    end
    object qCommonCSDATE: TDateField
      FieldName = 'CSDATE'
      Origin = '"COMMON_SERV"."CSDATE"'
    end
    object qCommonCSFORWHAT: TIBStringField
      FieldName = 'CSFORWHAT'
      Origin = '"COMMON_SERV"."CSFORWHAT"'
      Size = 255
    end
    object qCommonCSNOTE: TIBStringField
      FieldName = 'CSNOTE'
      Origin = '"COMMON_SERV"."CSNOTE"'
      Size = 255
    end
    object qCommonCSUSERENTER: TIBStringField
      FieldName = 'CSUSERENTER'
      Origin = '"COMMON_SERV"."CSUSERENTER"'
      Size = 40
    end
    object qCommonCSTIMEENTER: TDateTimeField
      FieldName = 'CSTIMEENTER'
      Origin = '"COMMON_SERV"."CSTIMEENTER"'
    end
    object qCommonCSUSEREDIT: TIBStringField
      FieldName = 'CSUSEREDIT'
      Origin = '"COMMON_SERV"."CSUSEREDIT"'
      Size = 40
    end
    object qCommonCSTIMEEDIT: TDateTimeField
      FieldName = 'CSTIMEEDIT'
      Origin = '"COMMON_SERV"."CSTIMEEDIT"'
    end
    object qCommonPID: TIntegerField
      FieldName = 'PID'
      Origin = '"COMMON_SERV"."PID"'
    end
    object qCommonAUTOR: TIBStringField
      FieldName = 'AUTOR'
      ProviderFlags = []
      Size = 769
    end
    object qCommonPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qCommonCSISDELETE: TIntegerField
      FieldName = 'CSISDELETE'
      Origin = '"COMMON_SERV"."CSISDELETE"'
    end
    object qCommonCSDELETENOTE: TIBStringField
      FieldName = 'CSDELETENOTE'
      Origin = '"COMMON_SERV"."CSDELETENOTE"'
      Size = 255
    end
    object qCommonPP_POLUCH: TIBStringField
      FieldName = 'PP_POLUCH'
      ProviderFlags = []
      Size = 767
    end
    object qCommonPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object qCommonCSNUMUSER: TIntegerField
      FieldName = 'CSNUMUSER'
      Origin = '"COMMON_SERV"."CSNUMUSER"'
    end
    object qCommonJLID: TIntegerField
      FieldName = 'JLID'
      Origin = '"COMMON_SERV"."JLID"'
    end
    object qCommonCSUSERMONEY: TIntegerField
      FieldName = 'CSUSERMONEY'
      Origin = '"COMMON_SERV"."CSUSERMONEY"'
    end
    object qCommonSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object quCommon: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  CSID,'
      '  PID_POLUCH,'
      '  CSFORM,'
      '  CSAMOUNT,'
      '  CSDATE,'
      '  PID,'
      '  CSFORWHAT,'
      '  CSNOTE,'
      '  CSUSERENTER,'
      '  CSTIMEENTER,'
      '  CSUSEREDIT,'
      '  CSTIMEEDIT,'
      '  CSISDELETE,'
      '  CSDELETENOTE,'
      '  PP,'
      '  AUTOR'
      'from COMMON_SERV '
      'where'
      '  CSID = :CSID')
    ModifySQL.Strings = (
      'update COMMON_SERV'
      'set'
      '  CSAMOUNT = :CSAMOUNT,'
      '  CSDATE = :CSDATE,'
      '  CSDELETENOTE = :CSDELETENOTE,'
      '  CSFORM = :CSFORM,'
      '  CSFORWHAT = :CSFORWHAT,'
      '  CSID = :CSID,'
      '  CSISDELETE = :CSISDELETE,'
      '  CSNOTE = :CSNOTE,'
      '  CSTIMEEDIT = :CSTIMEEDIT,'
      '  CSTIMEENTER = :CSTIMEENTER,'
      '  CSUSEREDIT = :CSUSEREDIT,'
      '  CSUSERENTER = :CSUSERENTER,'
      '  PID = :PID,'
      '  PID_POLUCH = :PID_POLUCH'
      'where'
      '  CSID = :OLD_CSID')
    InsertSQL.Strings = (
      'insert into COMMON_SERV'
      
        '  (CSAMOUNT, CSDATE, CSDELETENOTE, CSFORM, CSFORWHAT, CSID, CSIS' +
        'DELETE, '
      
        '   CSNOTE, CSTIMEEDIT, CSTIMEENTER, CSUSEREDIT, CSUSERENTER, PID' +
        ', '
      '   PID_POLUCH)'
      'values'
      
        '  (:CSAMOUNT, :CSDATE, :CSDELETENOTE, :CSFORM, :CSFORWHAT, :CSID' +
        ', :CSISDELETE, '
      
        '   :CSNOTE, :CSTIMEEDIT, :CSTIMEENTER, :CSUSEREDIT, :CSUSERENTER' +
        ', '
      '   :PID, :PID_POLUCH)')
    DeleteSQL.Strings = (
      'null;'
      '')
    Left = 83
    Top = 64
  end
  object SD1: TSaveDialog
    InitialDir = 'c:\'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 1152
    Top = 80
  end
  object dsComRaznes: TDataSource
    DataSet = qComRaznes
    Left = 353
    Top = 125
  end
  object qComRaznes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dsCommon
    SQL.Strings = (
      'SELECT SC.SCNUM_N, C.CAMOUNT,  ST.STNAME'
      'FROM COMMON C'
      'INNER JOIN SERVICES S ON S.SCID = C.SCID'
      'INNER JOIN SERVICES_TYPE ST ON ST.STID = S.STID'
      'INNER JOIN SPEC_COND SC ON SC.SCID = C.SCID'
      'WHERE C.CSID = :CSID AND C.CTYPE = 1'
      'UNION'
      
        'SELECT NULL AS SCNUM_N, C.CAMOUNT,  '#39' '#1055#1083#1072#1090#1072' '#1079#1072' '#1087#1077#1088#1077#1095#1080#1089#1083#1077#1085#1080#1077' '#1076#1077#1085#1077 +
        #1075' '#1085#1072' '#1088'/'#1089' '#1086#1073#1088#1072#1079#1086#1074#1072#1090#1077#1083#1100#1085#1086#1075#1086' '#1091#1095#1088#1077#1078#1076#1077#1085#1080#1103' '#1095#1077#1088#1077#1079' '#1073#1072#1085#1082#39' AS STNAME'
      'FROM COMMON C'
      'WHERE C.CSID = :CSID AND C.CTYPE = 2'
      'ORDER BY 2')
    Left = 385
    Top = 125
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CSID'
        ParamType = ptUnknown
        Size = 4
      end
      item
        DataType = ftInteger
        Name = 'CSID'
        ParamType = ptUnknown
      end>
    object qComRaznesCAMOUNT: TIBBCDField
      FieldName = 'CAMOUNT'
      Origin = '"COMMON"."CAMOUNT"'
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qComRaznesSTNAME: TIBStringField
      FieldName = 'STNAME'
      Origin = '"SERVICES_TYPE"."STNAME"'
      Size = 255
    end
    object qComRaznesSCNUM_N: TIntegerField
      FieldName = 'SCNUM_N'
      Origin = '"SPEC_COND"."SCNUM_N"'
    end
  end
  object sqlDel_Paymants_Agr: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      'UPDATE PAYMANTS_AGR pa'
      
        'SET pa.PAISDELETE = 1, pa.PANOTE = COALESCE(pa.PANOTE, '#39' '#39') || '#39 +
        ' '#1055#1088#1080#1095#1080#1085#1072' '#1091#1076#1072#1083#1077#1085#1080#1103': '#39'||CAST(:txt AS D_STR80)'
      'WHERE pa.PAID = :paid')
    Transaction = DMInv.trWrite
    Left = 440
    Top = 125
  end
  object sqlUndelete_paymants_agr: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      'UPDATE PAYMANTS_AGR PA'
      'set pa.PAISDELETE = NULL'
      'WHERE pa.PAID = :paid')
    Transaction = DMInv.trWrite
    Left = 480
    Top = 125
  end
  object qPaymants_Agr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      
        'SELECT (P_res.PLASTNAME||'#39' '#39'||P_res.PNAME||'#39' '#39'||COALESCE(P_res.P' +
        'PATRONYMIC,'#39' '#39')) AS P_RECIPIENT,'
      
        'IIF(pa.PID IS NOT NULL, (P.PLASTNAME||'#39' '#39'||P.PNAME||'#39' '#39'||COALESC' +
        'E(P.PPATRONYMIC,'#39' '#39')), COALESCE(sd.SDNAME, jl.JLOPF)||'#39' "'#39'||jl.J' +
        'LEGALNAME||'#39'" '#39') AS plat,'
      
        'pa.PAAMOUNTBALANCE, pa.PAAMOUNT, pa.PABANKPERCENTS, pa.PAID, p_r' +
        'es.PDATEBIRTH,'
      
        'IIF(pa.PAFORM = 0,'#39#1053#1072#1083'.'#39','#39#1041'/'#1085#39') AS tip, pa.PANOTE, pa.PAUSERENTE' +
        'R, pa.PATIMEENTER,'
      'pa.PAUSEREDIT, pa.PATIMEEDIT, podr.sdname AS osn_podr, pa.PADATE'
      'FROM PAYMANTS_AGR pa'
      'LEFT OUTER JOIN PEOPLE P_res ON P_res.PID = pa.PID_POLUCH'
      'LEFT OUTER JOIN PEOPLE P ON P.PID = pa.PID'
      'LEFT OUTER JOIN JURLITSA JL ON JL.JLID = pa.JLID'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = JL.JLOPFSDID'
      'LEFT OUTER JOIN ('
      ' SELECT APU.PID, dp.sdid, dp.DPDATEIN, dp.DPDATEOUT, sd.SDNAME'
      'FROM DETI_PODRAZD_SC DP'
      'INNER JOIN SPEC_COND SC ON SC.SCID = DP.SCID'
      'INNER JOIN AGR_POLUCH_USLUG APU ON APU.AGID = SC.AGID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = DP.SDID'
      ' where DP.DPTYPE = 1 AND SC.SCISDELETE IS NULL'
      ' and  CURRENT_DATE BETWEEN CAST(dp.DPDATEIN AS DATE)'
      
        ' AND COALESCE(CAST(dp.DPDATEOUT AS DATE), CURRENT_DATE)) podr ON' +
        ' podr.pid = p_res.PID'
      'where (pa.padate between :datebegin and :dateend)')
    Left = 651
    Top = 122
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'datebegin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'dateend'
        ParamType = ptUnknown
      end>
    object qPaymants_AgrP_RECIPIENT: TIBStringField
      FieldName = 'P_RECIPIENT'
      ProviderFlags = []
      Size = 767
    end
    object qPaymants_AgrPLAT: TIBStringField
      FieldName = 'PLAT'
      ProviderFlags = []
      Size = 767
    end
    object qPaymants_AgrPAAMOUNTBALANCE: TIBBCDField
      FieldName = 'PAAMOUNTBALANCE'
      Origin = '"PAYMANTS_AGR"."PAAMOUNTBALANCE"'
      Precision = 18
      Size = 2
    end
    object qPaymants_AgrPAAMOUNT: TIBBCDField
      FieldName = 'PAAMOUNT'
      Origin = '"PAYMANTS_AGR"."PAAMOUNT"'
      Precision = 18
      Size = 2
    end
    object qPaymants_AgrPABANKPERCENTS: TIBBCDField
      FieldName = 'PABANKPERCENTS'
      Origin = '"PAYMANTS_AGR"."PABANKPERCENTS"'
      Precision = 18
      Size = 2
    end
    object qPaymants_AgrPAID: TIntegerField
      FieldName = 'PAID'
      Origin = '"PAYMANTS_AGR"."PAID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPaymants_AgrPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object qPaymants_AgrTIP: TIBStringField
      FieldName = 'TIP'
      ProviderFlags = []
      FixedChar = True
      Size = 4
    end
    object qPaymants_AgrPANOTE: TIBStringField
      FieldName = 'PANOTE'
      Origin = '"PAYMANTS_AGR"."PANOTE"'
      Size = 255
    end
    object qPaymants_AgrPAUSERENTER: TIBStringField
      FieldName = 'PAUSERENTER'
      Origin = '"PAYMANTS_AGR"."PAUSERENTER"'
      Size = 40
    end
    object qPaymants_AgrPATIMEENTER: TDateTimeField
      FieldName = 'PATIMEENTER'
      Origin = '"PAYMANTS_AGR"."PATIMEENTER"'
    end
    object qPaymants_AgrPAUSEREDIT: TIBStringField
      FieldName = 'PAUSEREDIT'
      Origin = '"PAYMANTS_AGR"."PAUSEREDIT"'
      Size = 40
    end
    object qPaymants_AgrPATIMEEDIT: TDateTimeField
      FieldName = 'PATIMEEDIT'
      Origin = '"PAYMANTS_AGR"."PATIMEEDIT"'
    end
    object qPaymants_AgrOSN_PODR: TIBStringField
      FieldName = 'OSN_PODR'
      ProviderFlags = []
      Size = 255
    end
    object qPaymants_AgrPADATE: TDateField
      FieldName = 'PADATE'
      Origin = '"PAYMANTS_AGR"."PADATE"'
    end
  end
  object qPaymants_Agr_tmp: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT (P_res.PLASTNAME||'#39' '#39'||P_res.PNAME||'#39' '#39'||COALESCE(P_res.P' +
        'PATRONYMIC,'#39' '#39')) AS P_RECIPIENT,'
      
        'IIF(pa.PID IS NOT NULL, (P.PLASTNAME||'#39' '#39'||P.PNAME||'#39' '#39'||COALESC' +
        'E(P.PPATRONYMIC,'#39' '#39')), COALESCE(sd.SDNAME, jl.JLOPF)||'#39' "'#39'||jl.J' +
        'LEGALNAME||'#39'" '#39') AS plat,'
      
        'pa.PAAMOUNTBALANCE, pa.PAAMOUNT, pa.PABANKPERCENTS, pa.PAID, p_r' +
        'es.PDATEBIRTH,'
      
        'IIF(pa.PAFORM = 0,'#39#1053#1072#1083'.'#39','#39#1041'/'#1085#39') AS tip, pa.PANOTE, pa.PAUSERENTE' +
        'R, pa.PATIMEENTER,'
      'pa.PAUSEREDIT, pa.PATIMEEDIT, podr.sdname AS osn_podr, pa.PADATE'
      'FROM PAYMANTS_AGR pa'
      'LEFT OUTER JOIN PEOPLE P_res ON P_res.PID = pa.PID_POLUCH'
      'LEFT OUTER JOIN PEOPLE P ON P.PID = pa.PID'
      'LEFT OUTER JOIN JURLITSA JL ON JL.JLID = pa.JLID'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = JL.JLOPFSDID'
      'LEFT OUTER JOIN ('
      ' SELECT APU.PID, dp.sdid, dp.DPDATEIN, dp.DPDATEOUT, sd.SDNAME'
      'FROM DETI_PODRAZD_SC DP'
      'INNER JOIN SPEC_COND SC ON SC.SCID = DP.SCID'
      'INNER JOIN AGR_POLUCH_USLUG APU ON APU.AGID = SC.AGID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = DP.SDID'
      ' where DP.DPTYPE = 1 AND SC.SCISDELETE IS NULL'
      ' and  CURRENT_DATE BETWEEN CAST(dp.DPDATEIN AS DATE)'
      
        ' AND COALESCE(CAST(dp.DPDATEOUT AS DATE), CURRENT_DATE)) podr ON' +
        ' podr.pid = p_res.PID'
      'where (pa.padate between :datebegin and :dateend)')
    Left = 683
    Top = 122
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'datebegin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'dateend'
        ParamType = ptUnknown
      end>
  end
  object dsPaymants_Agr: TDataSource
    DataSet = qPaymants_Agr
    Left = 608
    Top = 120
  end
end
